Add new command 'package-vc-log-incoming'

* lisp/emacs-lisp/package-vc.el (package-vc-log-incoming):
Implement it.
* etc/NEWS: Mention it.

diff --git a/etc/NEWS b/etc/NEWS
index 88da60df591090e65418eebcca84499bc8436380..dba709279bb3c8cb8b0346a88972cefa7229327e 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1421,6 +1421,11 @@ project, that you can quickly select using 'project-switch-project'
 Controls for which packages Emacs runs extra build commands when
 installing directly from the package VCS repository.
 
+---
+*** New command 'package-vc-log-incoming'.
+This commands displays incoming changes for a VC package without
+modifying the current checkout.
+
 ---
 *** New command to start an inferior Emacs loading only specific packages.
 The new command 'package-isolate' will start a new Emacs process, as

diff --git a/lisp/emacs-lisp/package-vc.el b/lisp/emacs-lisp/package-vc.el
index c86577b6b26d5607b6775c694af4f2f39201c72a..45231bd4c73cc771239ad8bf8cdff7b7af3f28b8 100644 (file)
--- a/lisp/emacs-lisp/package-vc.el
+++ b/lisp/emacs-lisp/package-vc.el
@@ -1025,5 +1025,12 @@ See also `vc-prepare-patch'."
     (vc-prepare-patch (package-maintainers pkg-desc t)
                       subject revisions)))
 
+(defun package-vc-log-incoming (pkg-desc)
+  "Call `vc-log-incoming' for the package PKG-DESC."
+  (interactive
+   (list (package-vc--read-package-desc "Incoming log for package: " t)))
+  (let ((default-directory (package-desc-dir pkg-desc)))
+    (call-interactively #'vc-log-incoming)))
+
 (provide 'package-vc)
 ;;; package-vc.el ends here